home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
tutorial
/
trac.zip
/
FIGIII-9.OBJ
< prev
next >
Wrap
Text File
|
1990-01-24
|
1KB
|
25 lines
0999 0 0999 0 Origin
1000 0 OP 0
1001 0 X 0
1002 0 Y 0
1003 0 Z 0
1004 0 0 Dummy included to reserve read space
1005 1 ONE 1 Constant one
1006 401000 RD OP Read OP, X, Y
1007 001000 LD OP Load OP
1008 021005 SU ONE Find difference for test
1009 241021 BN*+12 If < 1 go to halt
1010 251017 BZ*+7 If = 1 go to add routine
1011 021005 SU ONE If > 1 see if it is 2
1012 241021 BN*+9 If not 2 go to halt
1013 001001 LD X Load X
1014 021002 SU Y Subtract Y
1015 031003 ST Z Store at Z
1016 261006 BU*-10 Go back to start
1017 001001 LD X Load X
1018 011002 AD Y Add Y
1019 031003 ST Z Store at Z
1020 261006 BU*-14 Go back to start
1021 500000 500000 Halt
9999 001006 EN*-16 End of code with starting location